(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[     13347,        359]
NotebookOptionsPosition[     11188,        310]
NotebookOutlinePosition[     11627,        327]
CellTagsIndexPosition[     11584,        324]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Title", ":", "Selection"}], ",", "Patience", ",", 
    RowBox[{"and", " ", "the", " ", "Interest", " ", "Rate"}]}], "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"Names", " ", "of", " ", 
    RowBox[{"Authors", ":", 
     RowBox[{"Radoslaw", " ", 
      RowBox[{"(", "Radek", ")"}], " ", "Stefanski", " ", "and", " ", "Alex", 
      " ", "Trew"}]}]}], "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"Date", ":", 
    RowBox[{
     RowBox[{"07", "/", "09"}], "/", "2023"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.903070202868635*^9, 3.903070214708768*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"4367d014-3494-49f5-b3d2-c8ba78b2869e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"path", "=", 
    RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Baseline", " ", "Path"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pathData", "=", 
    RowBox[{"path", "<>", "\"\<StataCode/\>\""}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Path", " ", "of", " ", "Stata", " ", "Directory"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pathCode", "=", 
    RowBox[{"path", "<>", "\"\<MathematicaCode/\>\""}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Path", " ", "of", " ", "Codes", " ", "Directory"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"namesVariables", "=", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"counter", "=", "1"}], ";", " ", 
    RowBox[{"nSteps", "=", "43"}], ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"namesVariables", "=", 
   RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.773119333331108*^9, 3.773119333875023*^9}, {
   3.7731193707167025`*^9, 3.7731193711613307`*^9}, {3.775374060323703*^9, 
   3.7753740610227795`*^9}, 3.775542341368359*^9, {3.796727051363865*^9, 
   3.7967270985402718`*^9}, {3.8924532277318277`*^9, 3.892453241434224*^9}, {
   3.8924533135011272`*^9, 3.8924533381064253`*^9}, {3.892454811612692*^9, 
   3.892454814973338*^9}, {3.8924548631980543`*^9, 3.892454876320426*^9}, {
   3.902720059511993*^9, 3.902720063172702*^9}, {3.903018602048213*^9, 
   3.903018607245872*^9}, {3.903018726583049*^9, 3.903018726924307*^9}, 
   3.903021915014134*^9, {3.903069995778616*^9, 3.903069997611623*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"af0b283b-cff8-4568-9f3b-7e141bd0362b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", "Define"}]}]}], " ", "Methods", " ", "Used", " ", "in", 
     " ", 
     RowBox[{
      RowBox[{"Solution", "--"}], "--"}]}], "-"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"NotebookEvaluate", "[", 
    RowBox[{"pathCode", "<>", "\"\<DefineMethods.nb\>\""}], "]"}], ";"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.7731196732555285`*^9, 3.7731196994533*^9}, 
   3.7764154775052757`*^9, {3.892453248493902*^9, 3.892453249158914*^9}, {
   3.892454883582225*^9, 3.892454884160763*^9}, {3.902720436695956*^9, 
   3.902720437064109*^9}, 3.90282412972092*^9, {3.9030179326732397`*^9, 
   3.903017932798276*^9}, 3.9030261035436783`*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"81df41e9-2700-4c9c-807f-f507e974aae3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", "Baseline"}]}]}], ",", " ", 
    RowBox[{"aka", " ", "perfect", " ", "altruism"}], ",", " ", 
    RowBox[{"\[Omega]", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", " ", "--"}], "--"}], "-"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"AbsoluteTiming", "[", 
   RowBox[{
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"pathCode", "<>", "\"\<Baseline.nb\>\""}], "]"}], ";"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.77311974507874*^9, 3.773119751883912*^9}, {
   3.776411379052608*^9, 3.7764113858835807`*^9}, {3.892453252126935*^9, 
   3.892453252862978*^9}, {3.8924548876634607`*^9, 3.892454888258719*^9}, {
   3.9027204385488586`*^9, 3.902720438911858*^9}, {3.902721191037571*^9, 
   3.9027211929913607`*^9}, {3.902721814800033*^9, 3.902721817135487*^9}, {
   3.902725487237205*^9, 3.90272549213575*^9}, 3.902824131463336*^9, {
   3.902843345036604*^9, 3.902843356633177*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"8b73d773-f4f8-491b-ab6e-644a732f9ec3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"957.589121`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.90298440792344*^9, 3.90298491580014*^9, 3.902985147894402*^9, {
   3.902985572707375*^9, 3.9029855909623213`*^9}, 3.903073170041032*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"f4b2d7a9-c17c-47eb-b36b-cc163efa4342"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", "Full"}]}]}], ",", " ", 
    RowBox[{"aka", " ", "imperfect", " ", "altruism"}], ",", " ", 
    RowBox[{"\[Omega]", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"0", " ", "--"}], "--"}], "-"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"AbsoluteTiming", "[", 
   RowBox[{
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"pathCode", "<>", "\"\<Full.nb\>\""}], "]"}], ";"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.77311974507874*^9, 3.773119751883912*^9}, {
   3.776411379052608*^9, 3.7764113858835807`*^9}, {3.892453252126935*^9, 
   3.892453252862978*^9}, {3.8924548876634607`*^9, 3.892454888258719*^9}, {
   3.9027204385488586`*^9, 3.902720438911858*^9}, {3.902721191037571*^9, 
   3.9027211929913607`*^9}, {3.902721814800033*^9, 3.902721817135487*^9}, {
   3.902725487237205*^9, 3.90272549213575*^9}, {3.902725952816224*^9, 
   3.902725955019526*^9}, {3.902726594085745*^9, 3.9027265944743357`*^9}, 
   3.902824133651287*^9, {3.902843359577043*^9, 3.902843363241983*^9}, 
   3.9030220241204157`*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"f6b89bd2-c18f-40d7-9796-0b9c8e674e7c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"909.249144`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.903080919100008*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"d5a5c3be-3825-4250-9cbc-1315210314ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", " ", "Robustness"}]}]}], " ", "To", " ", "varying", " ", 
     "\[Gamma]", " ", "and", " ", 
     RowBox[{"delta", ".", " ", "Full"}]}], ",", " ", 
    RowBox[{"\[Omega]", "=", "0"}], ",", 
    RowBox[{"--", 
     RowBox[{"--", "-"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"AbsoluteTiming", "[", 
   RowBox[{
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"pathCode", "<>", "\"\<RobustnessGammaDelta.nb\>\""}], "]"}], 
    ";"}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.9027502613165627`*^9, 3.902750276739196*^9}, {
   3.902751930795698*^9, 3.9027519397654*^9}, 3.902824135528686*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"cd8ee4c4-20b1-4370-a026-2796fdad1f8c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.607722`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.9030059865840883`*^9, 3.9030741644587317`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"c70799a8-8aeb-49bd-8f67-5431fb8b8f7e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", "Decomposition"}]}]}], " ", "of", " ", 
     RowBox[{"Channels", ".", " ", "Full"}], " ", "Model"}], ",", " ", 
    RowBox[{"\[Omega]", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"0", " ", "--"}], "--"}], "-"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"AbsoluteTiming", "[", 
   RowBox[{
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"pathCode", "<>", "\"\<Decomposition.nb\>\""}], "]"}], ";"}], 
   " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.9027519443882427`*^9, 3.9027519456261387`*^9}, 
   3.9028241383957777`*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"23896e71-9d6d-46e9-bdef-6e8de02486a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1568.200199`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.9030076803714657`*^9, 3.903075554384735*^9, 
  3.9030789367253838`*^9, 3.903082708138275*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"2dc67292-a29c-44a2-bd37-d051cf23fcf7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", "Mutations"}]}]}], ".", " ", "Full"}], " ", "Model"}], 
    ",", " ", 
    RowBox[{"\[Omega]", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"0", " ", "--"}], "--"}], "-"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"AbsoluteTiming", "[", 
   RowBox[{
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"pathCode", "<>", "\"\<Mutations.nb\>\""}], "]"}], ";"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.9027519443882427`*^9, 3.9027519456261387`*^9}, 
   3.9028241383957777`*^9, {3.902825394219324*^9, 3.902825394964301*^9}, {
   3.902829202579544*^9, 3.902829204150475*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"09499e3f-ef07-4da6-9b78-3775f8eb0789"],

Cell[BoxData["0.9999999999999999`"], "Print",
 CellChangeTimes->{3.9030827578491173`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"3cbee1b9-3919-47d1-b335-c79e874166c7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"38.003879`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.903007845784666*^9, 3.9030755958602047`*^9, 
  3.903082787359582*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"469ecedc-f0fb-4c4d-8456-446147b7f392"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", "Fixed"}]}]}], " ", "Capital", " ", 
     RowBox[{
      RowBox[{"Model", " ", "--"}], "--"}]}], "-"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"AbsoluteTiming", "[", 
   RowBox[{
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"pathCode", "<>", "\"\<FixedCapital.nb\>\""}], "]"}], ";"}], " ",
    "]"}]}]], "Input",
 CellChangeTimes->{{3.9027519443882427`*^9, 3.9027519456261387`*^9}, 
   3.9028241383957777`*^9, {3.902825394219324*^9, 3.902825394964301*^9}, {
   3.902829202579544*^9, 3.902829204150475*^9}, {3.902906871294919*^9, 
   3.902906879730685*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"a0ac91b5-8e9a-4562-b9bf-b0a14643c701"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"48.211493`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.903008770501576*^9, 3.903075644203106*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"f022984f-0a21-4221-8328-06e84fc86106"]
}, Open  ]]
},
WindowSize->{1064, 816},
WindowMargins->{{158, Automatic}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"3b48236f-6caa-467d-a53a-3052421fd47a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[400, 13, 697, 17, 73, "Input",ExpressionUUID->"4367d014-3494-49f5-b3d2-c8ba78b2869e"],
Cell[1100, 32, 1805, 41, 136, "Input",ExpressionUUID->"af0b283b-cff8-4568-9f3b-7e141bd0362b"],
Cell[2908, 75, 852, 21, 52, "Input",ExpressionUUID->"81df41e9-2700-4c9c-807f-f507e974aae3"],
Cell[CellGroupData[{
Cell[3785, 100, 1097, 25, 52, "Input",ExpressionUUID->"8b73d773-f4f8-491b-ab6e-644a732f9ec3"],
Cell[4885, 127, 325, 6, 34, "Output",ExpressionUUID->"f4b2d7a9-c17c-47eb-b36b-cc163efa4342"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5247, 138, 1217, 27, 52, "Input",ExpressionUUID->"f6b89bd2-c18f-40d7-9796-0b9c8e674e7c"],
Cell[6467, 167, 206, 4, 34, "Output",ExpressionUUID->"d5a5c3be-3825-4250-9cbc-1315210314ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6710, 176, 810, 20, 52, "Input",ExpressionUUID->"cd8ee4c4-20b1-4370-a026-2796fdad1f8c"],
Cell[7523, 198, 231, 4, 34, "Output",ExpressionUUID->"c70799a8-8aeb-49bd-8f67-5431fb8b8f7e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7791, 207, 748, 21, 52, "Input",ExpressionUUID->"23896e71-9d6d-46e9-bdef-6e8de02486a0"],
Cell[8542, 230, 280, 5, 34, "Output",ExpressionUUID->"2dc67292-a29c-44a2-bd37-d051cf23fcf7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8859, 240, 816, 23, 52, "Input",ExpressionUUID->"09499e3f-ef07-4da6-9b78-3775f8eb0789"],
Cell[9678, 265, 194, 4, 24, "Print",ExpressionUUID->"3cbee1b9-3919-47d1-b335-c79e874166c7"],
Cell[9875, 271, 254, 5, 34, "Output",ExpressionUUID->"469ecedc-f0fb-4c4d-8456-446147b7f392"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10166, 281, 775, 20, 52, "Input",ExpressionUUID->"a0ac91b5-8e9a-4562-b9bf-b0a14643c701"],
Cell[10944, 303, 228, 4, 34, "Output",ExpressionUUID->"f022984f-0a21-4221-8328-06e84fc86106"]
}, Open  ]]
}
]
*)

